home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SELFILE < prev    next >
Text File  |  1994-12-13  |  517b  |  9 lines
  1. SELFILE: procedure;arg np,bco,fco,ki
  2.     getuser 1209644;nu=result;getuser 2407246;if nu=result then return 0
  3.     pa=left(np,max(lastpos(':',np),lastpos('/',np)))
  4.     na=substr(np,length(pa)+1);si=word(statef(np),2)
  5.     sh=x2c(d2x(si,8))left(na,32,'00'x)left(pa,96,'00'x)copies('00'x,7)x2c(d2x(ki,2))x2c(d2x(si*bco%100,8))x2c(d2x(fco,4))copies('00'x,6)copies('FF'x,4)
  6.     getcarrier;if result~='TRUE' then exit;getuser 1401978
  7.     call export(x2c(d2x(result+nu*156,8)),sh)
  8.     setobject nu+1;putuser 1209644;return 1
  9.